home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / wplay.zip / CELLO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-12-17  |  961b  |  41 lines
  1. program Cello;
  2.  
  3. (*
  4. A demonstration for the WinPlay unit by Don Phillip Gibson
  5. *)
  6.  
  7.  
  8. Uses WinCrt, WinPlay, WinProcs, WinTypes, Strings;
  9.  
  10. begin
  11. StrCopy(WindowTitle,'Bach: Cello Suite in G Major, Menuetto');
  12. InitWinCrt;
  13.  
  14. repeat
  15. Play ('t104 o2 l8 ml');
  16.  
  17. Play ('g>db4ab16>c16 <bagf#gd');
  18. Play ('eg>c<af#>d <b2a.p16');
  19. Play ('<a>f#>c4<b>c16d16 c<bagf#e');
  20. Play ('f#g16a16gf#ef# d4<a4d.p16');
  21.  
  22. Play ('g>db4ab16>c16 <bagf#gd');
  23. Play ('eg>c<af#>d <b2a.p16');
  24. Play ('<a>f#>c4<b>c16d16 c<bagf#e');
  25. Play ('f#g16a16gf#ef# d4<a4d.p16');
  26.  
  27. Play ('>df#a4ga16b16 agf#edf#');
  28. Play ('<b>dg#ab>d <<a>>dc<b>c.p16');
  29. Play ('<d#f#a>c<ba be<g>a>c<b');
  30. Play ('agf#e<b>d# <e4p>edc');
  31.  
  32. Play ('<b>dg4de16f32p32 fdec<cb');
  33. Play ('>c#ea4ef#16g32p32 gef#d<da');
  34. Play ('>df#a>c<b>d <egb>dce');
  35. Play ('d<f# t94 g<b  t84 d>f# g2.');
  36.  
  37. until MessageBox(0,'Play it again?','Cello Suite',
  38.                  mb_YesNo or mb_IconQuestion) = id_No;
  39. DoneWinCrt;
  40. end.
  41.